home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 October / Ahoy_Magazine_86-10_1986_Double_L.d64 / Attack Force (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  10KB  |  274 lines
  1. 10 poke52,55:poke56,55:clr:goto800
  2. 20 pokeoo,1:pokeps,0:pokeht,0:poketh,0:fc=0:tc=10:lc=18:cc=12:y=25
  3. 30 goto100
  4. 50 gosub660
  5. 55 print"[158] again...":syssr:syssr
  6. 60 print" your people are free once":syssr:syssr:syssr:syssr
  7. 65 print" of the enemy installations.":syssr:syssr
  8. 70 print" you have destroyed all":syssr:syssr
  9. 75 fori=1to6:syssr:next:pokes+5,128:pokes+6,248:pokes+12,0:pokes+13,240
  10. 80 p(0)=34:p(1)=34:p(2)=45:d(0)=200:d(1)=100:d(2)=450
  11. 85 fori=0to2:pokes+1,p(i):pokes+8,p(i)-15:pokes,0:pokes+7,0
  12. 86 pokes+4,17:pokes+11,17
  13. 90 ford=1tod(i):next:pokes+4,16:pokes+11,16:forj=1to25:next:next
  14. 95 sysxy,7,23:print"press any key":poke198,0
  15. 98 geta$:ifa$=""then98
  16. 99 ms=9:goto700
  17. 100 ifpeek(ps)then200
  18. 110 ifpeek(th)thengosub400
  19. 115 ifpeek(ht)thengosub450
  20. 120 ifint(rnd(1)*30)=1andbs=0thengosub460
  21. 130 ifbs=1thengosub470
  22. 140 fc=fc+1:iffc=40+ms*2thenfc=0:goto325
  23. 150 ifpeek(653)and1then190
  24. 180 gosub300
  25. 185 goto100
  26. 190 ifpeek(653)thenpokeoo,0:pokes+24,0:goto190
  27. 195 pokeoo,1:pokes+24,47:goto180
  28. 200 poke2040,253:pokes+1,8:pokes+5,0:pokes+6,13:pokes+4,129:pokes+4,128
  29. 205 pokes+11,0:pokes+18,0
  30. 210 pokev+28,peek(v+28)or1:fori=1to100:pokev+39,8:pokev+39,2:next
  31. 215 bs=0:sysxy,32,21:print"     "
  32. 220 fori=1to1500:next:sh=sh-1:ifsh=-1then250
  33. 225 sysxy,31,14:print""sh:pokev+21,192:fc=0:goto500
  34. 250 pokeoo,0:pokes+4,0:pokes+11,0:pokes+18,0:pokev+21,192
  35. 255 sysxy,7,10:print"[158]]^^^^^^^^^^^?"
  36. 260 printtab(7)"[ game over[158] @"
  37. 265 printtab(7)"\^^^^^^^^^^^_"
  38. 270 fori=1to3000:next:pokev+21,0:goto700
  39. 300 syssr:y=y+1:ify=35-mstheny=0:gosub340
  40. 305 tc=tc+1:iftc=35-msthentc=0:gosub350
  41. 310 cc=cc+1:ifcc=35-msthencc=0:gosub380
  42. 315 lc=lc+1:iflc=35-msthenlc=0:gosub390
  43. 320 return
  44. 325 f=f-1:iff=0then200
  45. 330 sysxy,30,17:print"         "
  46. 335 sysxy,30,17:printleft$(f$,f*2):goto180
  47. 340 sysxy,0,0:poke646,rnd(1)*6+10:printwl$(rnd(1)*9+1):return
  48. 350 pokev+6,rnd(1)*220+30:pokev+7,28:pokev+21,peek(v+21)or8:poketh,0
  49. 352 poke2043,251:pokev+42,11:return
  50. 380 pokev+4,rnd(1)*220+30:pokev+5,28:pokev+21,peek(v+21)or4:pokeht,0
  51. 385 poke2042,252:pokev+41,8:return
  52. 390 sysxy,0,0:printlz$(rnd(1)*8+1):return
  53. 400 ifpeek(2043)=253thenreturn
  54. 405 pokev+42,2:poke2043,253
  55. 410 sc=sc+250:gosub680
  56. 415 t=t+1:ift=ms+4then570
  57. 420 return
  58. 450 ifpeek(2042)=253thenreturn
  59. 455 pokev+41,2:poke2042,253
  60. 458 sc=sc+10+10*ms:gosub680:return
  61. 460 bs=1:bf=150:pokes+12,0:pokes+13,240:pokes+8,bf
  62. 465 x=int(rnd(1)*26)+1:xx=int(x/6)+1
  63. 466 sysxy,xx+31,21:print".":pokes+11,17
  64. 468 return
  65. 470 bf=bf-5:pokes+8,bf:ifbf>90thenreturn
  66. 475 z=int(peek(v+1)/8):sysxy,x,z-7:print"&&&[145][157][157]&[157]&":pokes+11,16:bs=0
  67. 480 sysxy,32,21:print"     "
  68. 485 pokes+11,16:pokes+8,8:pokes+12,0:pokes+13,11:pokes+11,129:pokes+11,128
  69. 490 return
  70. 500 pokev+21,192:gosub660:poke2040,255:poke2041,254:poke2042,252:poke2043,251
  71. 505 poke v,124:pokev+1,210:pokev+39,6:pokev+40,2:sysxy,31,11:print""ms
  72. 510 pokev+41,8:pokev+42,11:pokev+28,12:pokev+37,7:pokev+38,12
  73. 515 poke53270,peek(53270)or16:poke53282,1
  74. 520 pokev+23,0:pokev+29,0:pokev+21,193
  75. 522 pokes+23,244:pokes+22,0:pokes+24,47:pokes+19,208:pokes+20,240
  76. 524 pokes+14,0:pokes+15,6:pokes+18,129
  77. 525 sysxy,3,11:print"prepare for mission"ms
  78. 528 sysxy,5,13:print"destroy"ms+4-t"tower";:ifms+4-t>1thenprint"s"
  79. 530 pokes+5,0:pokes+6,240:pokes+4,33:fori=1to3
  80. 535 pokes+1,8:pokes,97:forj=1to350:next:pokes+1,12:pokes,32:forj=1to350:next
  81. 540 next:pokes+4,32
  82. 545 gosub660:tc=0:y=0
  83. 550 oo=53245:ss=52992:ts=52993:ps=52994:ht=52995:th=52996:sr=50432
  84. 555 pokes+5,0:pokes+6,9
  85. 560 f$="'''''''''":sysxy,30,17:printf$:f=9
  86. 565 z=peek(v+30):z=peek(v+31):goto20
  87. 570 pokev+21,192:pokes+4,0:pokes+11,0:pokes+18,0:gosub660
  88. 575 sysxy,4,11:print"mission"ms"completed":pokeoo,0
  89. 580 fori=1to500:next:ms=ms+1:ifms=10then50
  90. 585 sysxy,7,13:print"[158]bonus:"f*10"pts.":gosub680
  91. 590 fori=1to2500:next:t=0:goto500
  92. 600 fori=1093to1973step40:pokei,27:pokei+10,0:next
  93. 610 xy=832:sysxy,29,0:print"]^^^^^^^^^?"
  94. 615 sysxy,29,24:print"\^^^^^^^^^";:poke2023,31
  95. 620 fori=3to18step3:sysxy,30,i:print"^^^^^^^^^":next
  96. 625 sysxy,31,4:print"[159]score":sysxy,31,7:print"high":sysxy,31,10:print"mission"
  97. 630 sysxy,31,13:print"ships":sysxy,31,16:print"fuel"
  98. 632 printtab(30)"'''''''''[159]"
  99. 635 sysxy,31,19:print"scanner":printtab(31)"]^^^^^?"
  100. 640 printtab(31)"[     @":printtab(31)"[  *  @"
  101. 650 printtab(31)"\^^^^^_"
  102. 655 return
  103. 660 fori=0to12:sysxy,0,i:print"                             "
  104. 670 sysxy,0,24-i:print"                             ";:next:return
  105. 680 sysxy,31,5:print"        ":sysxy,31,5:printsc
  106. 685 ifsc>hsthenhs=sc:sysxy,31,8:print"        ":sysxy,31,8:prinths
  107. 690 return
  108. 700 poke53281,0:poke53280,11:pokev+28,0:poke53270,peek(53270)and239
  109. 705 pokev+23,1:pokev+29,1:pokev+16,192:pokev+12,25:pokev+14,49
  110. 710 pokev+13,57:pokev+15,57:poke2046,249:poke2047,250
  111. 712 pokev,122:pokev+1,85:pokev+39,6:poke2040,255
  112. 715 pokev+45,7:pokev+46,7:pokev+21,193:print"[147]":gosub600
  113. 716 sysxy,31,5:print""sc:sysxy,31,8:prinths:sysxy,31,11:printms
  114. 718 sh=3:sysxy,31,14:printsh
  115. 720 sysxy,2,15:print"press f1 to select mission"
  116. 725 sysxy,4,17:print"[129]press f3[129] to start game"
  117. 730 sysxy,7,19:print"[150]press f7[150] to exit"
  118. 740 geta$:ifa$=""then740
  119. 750 ifa$="[133]"thenms=ms+1:ifms=10thenms=1
  120. 755 sysxy,31,11:print""ms
  121. 760 ifa$="[134]"then780
  122. 770 ifa$="[136]"thenpokev+21,0:print"[147]":end
  123. 775 goto740
  124. 780 sc=0:f=9:t=0:gosub680:goto500
  125. 800 poke53281,11:poke53280,11:poke646,7:v=53248:s=54272:print"[147]":pokev+21,0
  126. 805 fori=stos+23:pokei,0:next:pokes+24,15
  127. 806 pokes+5,0:pokes+6,14:pokes+1,150
  128. 808 poke53270,peek(53270)and239:pokev+28,0
  129. 810 fori=249to255:forj=0to63:readk:poke64*i+j,k:next:next
  130. 815 poke2040,249:poke2041,250:pokev+29,3:pokev+23,3
  131. 820 pokev+39,0:pokev+40,0:pokes+4,129:pokes+4,128
  132. 825 pokev,136:pokev+2,184:pokev+1,110:pokev+3,110:pokev+21,3
  133. 828 fori=0to240:pokes+1,i:pokev+39,i:pokev+40,i:next
  134. 830 print"[158]"spc(7)"plug joystick into port 2"
  135. 835 print""spc(13)"[154]loading data"
  136. 845 poke56334,peek(56334)and254:poke1,peek(1)and251
  137. 850 fori=0to511:pokei+14336,peek(i+53248):next
  138. 855 poke1,peek(1)or4:poke56334,peek(56334)or1
  139. 860 poke53272,(peek(53272)and240)+14
  140. 865 readk:ifk=-1then875
  141. 870 fori=0to7:readj:poke14336+k*8+i,j:next:goto865
  142. 875 fori=832to860:readj:pokei,j:next
  143. 878 fori=1to9:readwl$(i):next:fori=1to8:readlz$(i):next
  144. 880 fori=49152to49577:readj:pokei,j:next
  145. 885 fori=50432to50633:readj:pokei,j:next
  146. 890 ms=1:sh=3:poke53245,0:sys49553:goto700
  147. 900 data1,223,124,1,68,17,2,68
  148. 901 data17,3,196,17,4,68,17,4
  149. 902 data68,17,8,68,17,8,0,0
  150. 903 data16,0,0,31,156,56,32,34
  151. 904 data68,60,34,68,64,66,121,64
  152. 905 data68,145,128,68,144,128,56,136
  153. 906 data0,0,0,0,0,0,0,0
  154. 907 data0,0,0,0,0,0,0,0
  155. 908 data227,145,0,20,82,0,20,20
  156. 909 data0,244,24,0,20,20,0,20
  157. 910 data82,0,19,145,0,0,0,0
  158. 911 data0,0,0,112,240,0,137,0
  159. 912 data0,129,0,0,3,192,0,2
  160. 913 data0,0,148,0,0,103,192,0
  161. 914 data0,0,0,0,0,0,0,0
  162. 915 data0,0,0,0,0,0,0,2
  163. 916 data10,160,0,42,168,0,234,171
  164. 917 data0,186,175,0,171,255,0,170
  165. 918 data255,0,170,255,0,170,255,0
  166. 919 data170,255,0,170,255,0,170,255
  167. 920 data0,170,255,0,170,255,0,170
  168. 921 data255,0,170,255,0,170,255,0
  169. 922 data170,255,0,170,255,0,42,252
  170. 923 data0,10,240,0,0,0,0,0
  171. 924 data0,0,0,0,0,0,0,0
  172. 925 data0,0,0,0,0,0,0,0
  173. 926 data0,0,0,168,0,10,170,128
  174. 927 data42,170,160,86,170,84,169,85
  175. 928 data168,42,170,160,10,170,128,0
  176. 929 data168,0,0,0,0,0,0,0
  177. 930 data0,0,0,0,0,0,0,0
  178. 931 data0,0,0,0,0,0,0,18
  179. 932 data0,0,0,2,10,0,0,0
  180. 933 data0,2,8,8,32,34,0,0
  181. 934 data138,128,10,10,0,2,168,162
  182. 935 data138,42,162,34,136,128,40,170
  183. 936 data162,10,170,32,34,170,136,10
  184. 937 data40,168,136,170,32,0,34,136
  185. 938 data2,138,128,32,40,32,8,32
  186. 939 data128,0,2,8,0,32,0,255
  187. 940 data0,0,0,0,0,0,0,0
  188. 941 data0,0,0,0,128,0,32,128
  189. 942 data0,32,128,0,32,128,0,32
  190. 943 data128,0,32,128,0,032,0,0
  191. 944 data0,0,0,0,0,0,0,0
  192. 945 data0,0,0,0,0,0,0,0
  193. 946 data0,0,0,0,0,0,0,0
  194. 947 data0,0,0,0,0,0,0,0
  195. 948 data0,64,0,0,64,0,0,64
  196. 949 data0,0,224,0,0,224,0,1
  197. 950 data176,0,1,16,0,1,16,0
  198. 951 data1,176,0,1,240,0,1,240
  199. 952 data0,6,236,0,14,238,0,14
  200. 953 data174,0,29,183,0,189,183,160
  201. 954 data253,183,224,253,183,224,7,28
  202. 955 data0,0,0,0,0,0,0,0
  203. 956 data0,216,216,216,216,216,216,216,216
  204. 957 data27,27,27,27,27,27,27,27,27
  205. 958 data28,27,27,27,24,15,0,0,0
  206. 959 data29,0,0,15,24,27,27,27,27
  207. 960 data30,0,0,255,0,255,0,0,0
  208. 961 data31,216,216,216,24,240,0,0,0
  209. 962 data33,0,1,15,15,29,60,124,126
  210. 963 data35,0,128,240,240,184,60,62,126
  211. 965 data38,8,90,52,191,90,52,74,16
  212. 966 data45,85,85,255,255,255,255,255,255
  213. 967 data44,85,93,245,245,245,245,244,240
  214. 968 data47,21,85,255,255,255,255,255,255
  215. 969 data63,0,0,240,24,216,216,216,216
  216. 970 data39,255,255,255,255,255,255,255,255,-1
  217. 971 data32,253,174,32,138,173,32,247,183
  218. 972 data152,72,32,253,174,32,138,173,32
  219. 973 data247,183,152,170,104,168,24,32
  220. 974 data240,255,96
  221. 980 data"--,   /----------------------"
  222. 981 data"------,   /------------------"
  223. 982 data"----------,   /--------------"
  224. 983 data"--------------,   /----------"
  225. 984 data"------------------,   /------"
  226. 985 data"----------------------,   /--"
  227. 986 data"--,   /-----,   /-----,   ---"
  228. 987 data"   /---------------------,   "
  229. 988 data"--,   /---------------,   /--"
  230. 990 data"  !%%%%%%%%%%%#"
  231. 991 data"  !%%%%%%#    !%%%%%%#  "
  232. 992 data"       !%%%%%%%%%%%%%#"
  233. 993 data"             !%%%%%%%%%%%%#"
  234. 994 data"  !%%#   !%%#   !%%#   !%%#"
  235. 995 data"   !%%%%%%%%%%%%%%%%%%%%%#"
  236. 996 data"!%%%%%#    !%%%%%#    !%%%%%#"
  237. 997 data" !%#   !%%#   !%%%#   !%%%%#"
  238. 1000 data173,253,207,240,37,173,0,220,41,16,240,5,169,0,141,249,207,173
  239. 1001 data2,207,208,6,32,45,192,32,112,192,173,3,207,208,3,32,3,193,32
  240. 1002 data198,192,32,74,193,108,254,207,173,0,220,174,0,208,41,8,240,10
  241. 1003 data224,26,240,23,206,0,208,206,0,208,173,0,220,41,4,240,10,224
  242. 1004 data238,240,6,238,0,208,238,0,208,173,0,220,41,1,208,12,174,1,208
  243. 1005 data224,165,144,15,206,1,208,208,10,174,1,208,224,210,240,3,238,1
  244. 1006 data208,96,173,252,207,240,23,174,3,208,224,35,144,60,206,3,208,206
  245. 1007 data3,208,206,3,208,173,3,208,141,1,212,96,173,249,207,208,39,173
  246. 1008 data0,220,41,16,208,32,169,1,141,249,207,141,252,207,169,2,13,21
  247. 1009 data208,141,21,208,173,1,208,141,3,208,32,64,193,173,0,208,141,2
  248. 1010 data208,96,169,253,45,21,208,141,21,208,169,0,141,252,207,96,173,251
  249. 1011 data207,201,7,208,11,162,7,189,243,192,157,39,57,202,208,247,173
  250. 1012 data251,207,201,12,208,16,169,0,141,251,207,162,7,189,251,192,157
  251. 1013 data39,57,202,208,247,238,251,207,96,0,12,63,243,192,0,0,0,0,192
  252. 1014 data243,63,12,0,0,0,173,21,208,41,4,201,4,240,1,96,173,250,207,240
  253. 1015 data23,173,4,208,201,231,176,10,238,4,208,238,4,208,238,4,208,96
  254. 1016 data169,0,141,250,207,96,173,4,208,201,27,144,10,206,4,208,206,4
  255. 1017 data208,206,4,208,96,169,1,141,250,207,96,162,129,142,4,212,202,142
  256. 1018 data4,212,96,173,30,208,141,16,207,41,1,240,3,141,2,207,173,16
  257. 1019 data207,41,6,201,6,208,8,169,1,141,3,207,32,184,192,173,16,207,41
  258. 1020 data10,201,10,208,8,169,1,141,4,207,32,184,192,173,31,208,141,17
  259. 1021 data207,41,1,240,3,141,2,207,173,17,207,41,2,240,3,32,184,192,96
  260. 1022 data173,20,3,141,254,207,173,21,3,141,255,207,120,169,0,141,20,3
  261. 1023 data169,192,141,21,3,88,96
  262. 1040 data169,152,133,252,169,7,133,253,169,152,133,254,169,219,133,255,162
  263. 1041 data23,160,28,177,252,141,0,207,177,254,141,1,207,24,165,252,105
  264. 1042 data40,133,252,165,253,105,0,133,253,165,254,105,40,133,254,165,255
  265. 1043 data105,0,133,255,173,0,207,145,252,173,1,207,145,254,56,165,252
  266. 1044 data233,40,133,252,165,253,233,0,133,253,165,254,233,40,133,254,165
  267. 1045 data255,233,0,133,255,136,192,255,208,181,160,28,202,224,255,240,28
  268. 1046 data56,165,252,233,40,133,252,165,253,233,0,133,253,165,254,233,40
  269. 1047 data133,254,165,255,233,0,133,255,76,20,197,160,28,169,32,145,252
  270. 1048 data169,0,145,254,136,192,255,208,243,173,21,208,41,4,240,21,24,173
  271. 1049 data5,208,105,8,141,5,208,201,240,144,8,173,21,208,41,251,141,21
  272. 1050 data208,173,21,208,41,8,240,21,24,173,7,208,105,8,141,7,208,201
  273. 1051 data240,144,8,173,21,208,41,247,141,21,208,96
  274.